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INTRODUCTION 


This manual contains examples of programming for the PDP-6 Type 166 Processor. They have 
been chosen to illustrate both the arithmetic and logical capabilities of the processor. For an 
explanation of the instructions shown see the PDP-6 Handbook (F-65). The examples use the 
same instruction mnemonics as the MACRO-6 assembler. The language is described in the 
MACRO-6 Manual (F-64MAS). 

Times based on design estimates are shown in some of the examples. All of the instruction times 
have been conservatively calculated. For example, no attempt has been made to take advan- 
tage of speed gains due to memory overlapping. Two of the examples show how time may be 
saved by moving to fast memory a short program which executes a large number of iterations. 
One of these. Character Manipulation, is programmed in both a straightforward manner and by 
being moved to fast memory in order to show the break-even point between the time gained 
and the increased overhead time. The second. Two-bit Testing, was programmed for 500 itera- 
tions. In this case there is a considerable gain in time by moving the program to fast memory. 
The last example. Any Radix Print, demonstrates the use of recursion to shorten programs. 

Sixteen examples are contained in this booklet: 

1 . Single Precision Integer Arithmetic 

2. Double Precision Integer Arithmetic 

3. Floating Point Arithmetic 

4. Fix a Floating Point Number 

5. Float a Fixed Point Integer 

6. Repetitive Calculation 

7. Subscripts 

8. Exponentiation 

9. Character Manipulation 

10. Character Translation 
11 . Character Addition 

12. Fifteenth Degree Polynomial 

13. Evaluation of Complex Polynomial 
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14. Matrix Inversion 

15. Two-Bit Testing and Depositing of Data 
1 6. Any Radix Print 
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SINGLE PRECISION INTEGER ARITHMETIC 


Assume: 1) A, B, C, D, E, F, G, H, J, K, L, M, N, and P are arbitrary memory locations. 

2) Arguments and instructions are in the same memory module. 

3) No scaling is required. 

4) Y indicates 1 of the 1 6 accumulators 

Time in microseconds 

A=B+C 

MOVE Y, B 4 

ADD Y, C 4 

MOVEM Y, A _4 

Total 12 

D=E+F+G 

MOVE Y, E 4 

ADD Y, F 4 

ADD Y, G 4 

MOVEM Y, D _4 

Total 16 

H=JxK 

MOVE Y, J 4 

IMULY, K 13.6 

MOVEM Y, H 4 

Total 21 .6 

L=MxN+P 

MOVE Y, M 4 

IMULY, N 13.6 

ADD Y, P 4 

MOVEM Y, L 4 

Total 25.6 
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DOUBLE PRECISION INTEGER ARITHMETIC 


Assume: 1) A, B, C, D, E, F, G, H, J, K, L, M, N, and P are arbitrary memory locations, 

each denoting a block of two consecutive memory registers. 

2) Each integer is stored in two consecutive memory locations with the high order in- 
teger in the first location and the low order integer in the second. 

3) Instructions and arguments are in same memory module. 

Time in rucroseconds 


A=B+C 


JFCL 16, . +1, 

CLEAR STRAY FLAGS 

2.1 

MOVE 0, B 


4.0 

MOVE 1 , B + 1 


4.0 

ADD 1, C+1, 

ADD LOW ORDER PARTS 

4.0 

JFCL 2, Dl, 

DID LOW ORDER PARTS OFLO 

2.1 

D2: ADD 0, C, 

ADD HIGH ORDER PARTS 

4.0 

MOVEM 0, A, 

STORE RESULTS 

4.0 

MOVEM 1 , A+1 


4.0 

Dl : AOJA 0, D2 

COMPENSATE FOR OVERFLOW 

3.3 


Total 28.2- 

■31 .5 


D=E+F+G 


JFCL 16, . + 1, 

CLEAR STRAY FLAGS 

2.1 

MOVE 0, E 


4.0 

MOVE 1 , E + 1 


4.0 

ADD 1, F + 1, 

ADD LOW ORDER PARTS 

4.0 

JFCL 2, DDl, 

DID LOW ORDER PARTS OFLO 

2.1 

DDIA: ADD 1, G + 1, 

ADD LOW ORDER PARTS 

4.0 

JFCL 2, DD2, 

OVERFLOW? 

2.1 

DD2A: ADD 0, F 

ADD HIGH ORDER PARTS 

4.0 

ADD 0, G 


4.0 

MOVEM 0, D, 

STORE ANSWERS 

4.0 

MOVEM 1 , D+1 


4.0 

DDl : AOJA 0, DDIA, 

COMPENSATE FOR OVERFLOW 

3.3 

DD2: AOJA 0, DD2A, 

COMPENSATE FOR OVERFLOW 

3.3 


Total 38.3-44.5 
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DOUBLE PRECISION INTEGER ARITHMETIC (continued) 

Time in microseconds 


K=JxK 


MOVE 0, J 


4.0 

MULO, K, 

MULTIPLY HIGH ORDER PARTS 

14.0 

MOVE 2, J + 1 


4.0 

MUL2, K, 

MULTIPLY LOW (J); HIGH (K) 

14.0 

JFCL 16, . + 1, 

CLEAR STRAY FLAGS 

2.1 

ADD 1, 2, 

SUM PRODUCTS 

4.0 

JFCL 2, Ml 

OVERFLOW? 

2.1 

MIA: MOVE 2, J, 

MULTIPLY HIGH (J), LOW (K) 

4.0 

MUL 2, K + 1 


14.0 

ADD 1,2, 

SUM PRODUCTS 

4.0 

JFCL 2, M2 

OVERFLOW? 

2.1 

M2A: MOVEM 1 , H + 1 , 

STORE RESULTS 

4.0 

MOVEM, H 


4.0 


Ml: AOJAO, MIA 

COMPENSATE OVERFLOW 

3.3 

M2: AOJA 0, M2A 

COMPENSATE OVERFLOW 

3.3 

Total 76.3-82.9 
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FLOATING POINT ARITHMETIC 

Assume; 1) A, B, C, D, E, F, G, H, J, K, L, M, N, and P are arbitrary memory locations. 

2) Arguments and instructions are in the same memory module. 

3) Y indicates 1 of the 1 6 accumulators . 


A=B+C 


MOVE Y, B 



4.0 

FAD Y, C 



5.8 

MOVEM Y, 

A 


4.0 



Total 

13.8 


D=E+F+G 



MOVE Y, E 



4.0 

FAD Y, F 



5.8 

FAD Y, G 



5.8 

MOVEM Y, 

D 


4.0 



Total 

19.6 


H=JxK 

MOVE Y, J 
FMP Y, K 
MOVEM Y, H 

L=MxN+P 


MOVE Y, M 4.0 

FMP Y, N 12.6 

FAD Y, P 5.8 

MOVEM Y, L 4.0 


Total 26.4 

PROBLEM: Consider an eight block table with 100 entries in each block. Let A, B, C, D, 

E, F, G, and H denote the first location of each block. For each entry find: 

G = (A-B)^ + (C-D)^ 

H = (G/E) X F 

Assume: 1) All entries in normalized floating point. 

2) Argument and instructions are in the same memory module. 


4.0 

12.6 

4.0 

Total 20.6 
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FLOATING POINT ARITHMETIC (continued) 


Program 

BEGIN: 


Time in microseconds 


MOVSI 1,T DlOO 

2 

MOVE 2, A(l) 

4 

FSB 2, B(l) 

6.2 

FMP 2, 2 

12.3 

MOVE 3, C(l) 

4 

FSB 3, D(l) 

6.2 

FMP 3, 3 

12.3 

FAD 2, 3 

5.5 

MOVEM 2, G(l) 

4 

FDV 2, E(l) 

18.0 

FMP 2, F(l) 

12.8 

MOVEM 2, H(l) 

4.0 

AOBJN 1, BEGIN+1 

3.3 


The total time for 100 repetitions: 
92.6 X 1 00 + 2 = 9.26 milliseconds 
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FIX A FLOATING POINT NUMBER 


Assume: 1) A floating point number in any accumulator from 1-15 designated by F. The 

result is returned in F+1 module 16. 

MULI F, 400, EXPONENT IN F, FRACTION IN F+1 

TSC F, F, COMPLEMENT EXPONENT IF NEGATIVE 

ASH F+1, -243(F), TRUNCATE TO GREATEST INTEGER 


FLOAT A FIXED POINT NUMBER 


Assume: 


27 . 

1) A fixed point integer less than 2 in magnitude in accumulator C. 


TLC C, 233000, XOR INTO WORD 

FAD C, 0, FLOATING ADD ZERO TO NORMALIZE 


2) A fixed point integer I, 


-2^^ < I < 2 


,35 


in accumulator F. 


Note: Accumulator F+1 is used in the calculation. 


IDIVI 

F,400, 

DIVIDE WORD INTO TWO PIECES 

SKIPE 

F; 

SKIP IF NORMALIZED ZERO 

TLC 

F, 243000, 

XOR EXPONENT INTO F 

TLC 

F+1, 233000, 

XOR EXPONENT INTO F+1 

FAD 

F, F+1, 

COMBINE AND NORMALIZE 
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REPETITIVE CALCULATION 


The foil owing are repeated 10000 times: 

A=B+C, D-E+F+G, H=JxK 

Assume: 1) A, B, C, D, E, F, G, H, J, K, L, M, N, and P are arbitrary memory locations. 

2) Arguments are in floating point. 

3) Arguments and instructions are in the same memory module. 

Time in microseconds 

MOVE I 2,^010000, INITIALIZE COUNTER 2 

B1 : MOVE 0, B 4 

FAD 0, C 5.2 

MOVEM 0, A 4 

MOVE 0, E 4 

FAD 0, F 5.2 

FAD 0, G 5.2 

MOVEM 0, D 4 

MOVE 0, J 4 

FMPO, K 12.6 

MOVEM 0, H 4 

SOJN2, Bl, COUNT 3 

55.2 

The total time for 10000 
repetitions: 

55.2 X 1 0000 + 2 = 0. 552 sec . 
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SUBSCRIPTS 


Compute for 1=1, 100 
A(I)=B(I)+C(I) 
D(I)=E(I)+F(I)+G(I) 
H(l)=A(l)xD(l) 


Assume: 1) The data is arranged in memory as follows: 

Bl, B2, — BlOO, Cl, C2, — Cl 00, El, FI, Gl, 
E2, F2, G2 — El 00, FI 00, GlOO, Al, Dl, A2, 
D2 — AlOO, DlOO, HI, H2, — HI 00 


Time in microseconds 


CLEARB 3, 2, 

INITIALIZE INDEX REGISTERS 

4.0 

HRLZI 1, -^DIOO, 

INITIALIZE INDEX COUNTER 

2.0 

MOVE 4, E(3) 


4.0 

FAD 4, F(3) 


6.0 

FAD 4, G(3) 


6.0 

MOVEM 4, D(2), 

D=E+F+G 

4.2 

MOVE 0, B(l) 


4.0 

FAD 0, C(l) 


6.0 

MOVEM 0, A(2) 


4.2 

FMP 0, 4 


12.3 

MOVEM 0, H(l) 


4.2 

ADDI 2, 2, 

INCREMENT 2 STEP INDEX 

3.0 

ADDI 3, 3, 

INCREMENT 3 STEP INDEX 

3.0 

AOBJN 1, Cl, 

INCREMENT 1 STEP INDEX 



AND COUNT 

3.3 


Total Time required is 0.062 seconds 
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EXPONENTIATION 


,FLOATING POINT NUMBER TO A FIXED POINT POWER 
, COMPUTE X^l USING ACCUMULATORS Al, A2, AND T. 
, STORE THE RESULT IN Y. IF X IS ZERO, RETURN ZERO 


FEXP: MOVEAl,X 

MO VS I T, 201400 
SKIPGE A2, I 
FDVM T, Al 
MOVMS A2 
JUMPN Al, FEXP2 
CLEARB T, A2 
FEXPl: FMP Al, Al 
LSH A2, -1 
FEXP2: TRZE A2, 1 
FMP T, Al 
JUMPN A2, FEXPl 
MOVEM T, Y 


;MOVE X TO Al 
;T1 = 1 .0 

;MOVE I TO A2, SKIP IF NON-NEGATIVE 
;TAKE RECIPROCAL OF X (NEGATIVE POWER) 
;TAKE ABSOLUTE VALUE OF I 
;GO TO MAIN LOOP (IF NON ZERO BASE) 
;ZERO EXPONENT AND RESULT FOR QUICK EXIT 
;SQUARE BASE TERM 

;SHIFT RIGHT FOR NEXT BIT OF EXPONENT 
;IS POWER A FACTOR? TURN OFF BIT 
;YES 

/MORE FACTORS? 

;NO, STORE RESULT 
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CHARACTER MANIPULATION 


PROBLEM: There is a string of 7 bit ASCII characters beginning at memory location A and 

ending with a slash. Transfer the characters, excluding the slash to a block 
beginning at location B. Count the number of characters and leave the result 
in an index register. 

Assume: 1) The code for a slash is 74 . 

o 

Program Time in microseconds 


MOVE 3, [POINT 7, B] 4 

MOVE 2, [POINT 7, A] 4 

MOVEI 1,0 2.0 

C: LDBI 0, 2 5 

CAIN 0, "/" 2.6 

JRST EXIT 2.1 

DPBI 0, 3 5 

AOJAl,C 3.4 


Total time isl8+16xN where 
N is the number of characters. 


MOVSI Al, CMOVP 2.0 

BLTA1,A1-1, MOVE TO FAST MEMORY 17.6 

JRST CMOV 3.0 

CMOVP: PHASE 0 
B1 0 

PTA: POINT 7, A 

PTB: POINT 7, B 

CMOV: LDBI Al, PTB 5.0 

CAIN Al, 74 2.0 

JRST EXIT 2.0 

DPBI Al, PTB 5.0 

CM: AOJABl,CMOV 2.0 

DE PHASE 
Al = CM + 1 


The time for this case is 31 + 14 x N. 
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CHARACTER TRANSLATION 


Assume: 


TRANSL: 


BTAB: 


TAB: 


1) That the number in accumulator A is a 6-bit code read from the card reader. 

The program must translate the card code into the equivalent 7-bit ASCII code. 
A translation table begins at location TAB consisting of 7-bit ASCII characters 
packed five to a word. 

2) The characters in this table are in order of their appearance in the card code. 
Because characters are packed five to a word, the quotient of the card code 
divided by 5 gives the word in which the ASCII character is found. The re- 
mainder gives the character position. An auxilliary table of five byte pointers, 
one pointing to each character position, allows retrieval of the proper ASCII 
with a single LDB instruction. 


IDIVI 

A, 5 

LDB 

A, BTAB (A+1) 

JRST 

EXIT 

POINT 

7, TAB (A), 6 

POINT 

7, TAB (A), 1 3 

POINT 

7, TAB (A), 20 

POINT 

7, TAB (A), 27 

POINT 

7, TAB (A), 34 

ASCII 

.M234. 

ASCII 

.56789. 

ASCII 

.0=©t’. 

ASCII 

.\ /ST. 

ASCII 

.UVWXY. 

ASCII 


ASCII 

.#7,-JK. 

ASCII 

.LMNOP. 

ASCII 

.QR :$*. 

ASCII 

. E >&+A . 

ASCII 

.BCDEF. 

ASCII 

/GHI?./ 

ASCII 

.) ]<I. 


13 



CHARACTER ADDITION 


PROBLEM: Add two 5 digit numbers expressed at 7-bit ASCII characters. 

Calling Sequence: JSP ACS, ASCIAD 

,ASCIAD: A ROUTINE TO ADD OR SUBTRACT FIVE DIGIT ASCII NUMBERS (7 BIT 

, CHARACTERS). 

1 . CHARACTERS MUST BE RIGHT JUSTIFIED 
, 2. TO ENTER ROUTINE: 

, A. MOVE ACO, (ADDEND) 

, B. MOVE ACl, (AUGEND)/ MOVN ACl, (SUBTRAHEND) 

, C. JSP ACS, ASCIAD 

, S. ON RETURN THE SUM OR DIFFERENCE IS IN AC2 AND THE CONTENTS 

, OF ACO AND ACl ARE UNCHANGED 

, 4. THE ROUTINE IS A RING COUNTER; FOR EXAMPLE 

, 99999+2=00001 and S-6=99997 

, 5. NOTE THAT TWO NEGATIVE NUMBERS CANNOT BE COMBINED AND 

, THAT IF ONE IS NEGATIVE IT MUST APPEAR IN ACl ON ENTRY. 


ASCIAD: AND ACO, M2 

lOR AC1,M4 

TLZN AC 1,400000 
ADD ACl, Ml 

ADD ACO, ACl 

AND ACO, MS 

MOVE AC2, M4 

AND AC2,AC0 

ASH AC2,-S 

SUBM AC0,AC2 

lOR AC2,M4 

JRST (ACS) 

Ml: BYTE (1) (7) 6, 6, 6, 6, 6 

M2: BYTE (1) (7) 17, 17, 17, 17, 17 

MS: BYTE (1) (7) 77, 77, 77, 77, 77 

M4: byte (1) (7) 60, 60, 60, 60, 60 

AC0=0 
AC 1=1 
AC2=2 
ACS=S 
END 
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FIFTEENTH DEGREE POLYNOMIAL 


Assume: 1) P denotes a block of memory containing the 16 coefficients; X is a memory lo- 

cation containing the argument; the answer is stored in location Z, 

Time in microseconds 


RADIX 10, 

MOVE 3, X, 

SET ASSEMBLER RADIX TO 10 

MOVE ARG TO FAST MEMORY 

4.0 

MOVEI 2, 15 

INITIALIZE INDEX COUNTER 

2.0 

MOVE 0, P+ 15, 

INITIALIZE VALUE 

4.0 

IMUL 0, 3, 

MULTIPLY BY ARGUMENT 

13.2 

ADD 0, P-1 (2) 

ADD NEXT LOWER COEFFICIENT 

4.0 

SOJGE 2, .-2, 

INCREMENT AND COUNT 

2.8 

MOVEM 0, Z, 

STORE ANSWER 

4.0 


Total time required is 31 4 microseconds 
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EVALUATION OF COMPLEX POLYNOMIAL 


Y = P + P- + Po + P X" 

o 1 2 n 

WHERE Y, X, and P are complex numbers. 


The real parts of the coefficients, P, are stored in an array, the first location labeled P. The 
imaginary parts are stored in another array, PI. The argument is X (real part) and XI (imaginary 
part), the answer is placed in Y and Yl, and the order is in N. 


DATA STRUCTURE 


P: BLOCK 14, 

REAL COEFFICIENT PARTS 


PI: BLOCK 14, 

IMAGINARY COEFFICIENT PART 


X: 0 

REAL PART OF ARGUMENT 


Xl:0 

IMAG. PART OF ARGUMENT 


Y: 0 

REAL PART OF ANSWER 


Yl:0 

IMAG. PART OF ANSWER 


N: 0 

ORDER OF POLYNOMIAL 



Time in 

microseconds 

MOVEI 4, N, 

INITIALIZE INDEX COUNTER 

2.0 

MOVE 0, P (4), 

INITIALIZE ANSWER 

4.0 

MOVE 1 , Pl(4), 


4.0 

MOVE 2, X, 

MOVE ARGUMENT TO 

4.0 

MOVE 3, XI, 

FAST MEMORY 

4.0 

PI 3: MOVE 5, 1 


2.4 

FMP5, 3, 

PI * XI 

12.2 

MOVE 6, 0 


2.4 

FMP 6, 3, 

P * XI 

12.2 

FMP 0, 2, 

P * X 

12.2 

FSB 0, 5, 

P * X - PI * XI = REAL PART 

5.6 

FMP 1 , 2, 

PI * X 

12.2 

FAD 1 , 6, 

P * XI + PI * X = IMAGINARY PART 

5.4 

FAD 0, P-1 (4), 

ADD NEXT LOWER COEFFICIENT 

6.0 

FAD 1, PI-1 (4) 


6.2 

SOJGE 4, PI 3 


4.0 

MOVEM 0, Y, 

STORE ANSWER 

4.0 

MOVEM 1 , Yl 


4.0 


TIME = 28 + 80. 8N psec. 

Example: A 13th Degree Polynomial Requires 1 .04 milliseconds. 
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MATRIX INVERSION 


PROBLEM: To invert an NxM matrix, stored row-wise in sequential locations beginning 

with A. 


,CALLING SEQUENCE; 

,CALL: JSP17, INVER 
, EXP A 

, JRST ERROR 

,THE ORDER OF THE MATRIX IS IN A, WITH THE NUMBER OF ROWS IN THE LEFT HALF, 
,AND THE NUMBER OF COLUMNS IN THE RIGHT HALF. THE ELEMENTS ARE STORED 
, ROW-WISE BEGINNING IN A+1 

IF THE INVERSION WAS SUCCESSFUL IT WILL RETURN TO CALL +3, AND IF A ZERO 
, PIVOT ELEMENT OR OVERFLOW OCCURRED, IT WILL RETURN TO CALL +2 

'accumulator assignments 


T=15 

, PIVOT ELEMENT 

3=14 

, COLUMN SUBSCRIPT 

K-13 

,ROW SUBSCRIPT 

P=12 

, INDEX POINTING TO PIVOT ELEMENT 

PT=11 

, MULTIPLIER 

LC=10 

,STOP COUNTER 

LCS=7 

,ROW COUNTER 

INVERT: 

HRRZ @(17) 


MOVEM, ROWS# ;GET COLUMN COUNT 

HLRZ @ (17) 

MOVEM, COLS# ;GET ROW COUNT 

MOVE [XWD ROWPRG, ROW] ;MOVE ROW SUBROUTINE 
BLT ROWL; INTO FAST MEMORY 

HRR ROW, (17) 

ADDI ROW,l ;SET UP PROGRAM ADDRESSES 

HRRROW+2, (17) 

HRR ROW+3, ROW 
ADDI ROW+2, 2 
HRRM ROW, INZl+1 
HRRM ROW, DIV+2 
HRRM ROW, DIV+6 
HRRM ROW, INZROW+1 
HRRM ROW+2, DIV 

MOVE I P, 0 
MOVN T, COLS 
MOVE T, 1 (T) 

HRRM T, INZl 
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INZSTP: 

MOVEI K, 0 

MOVE LCS, ROWS 

MOVE J, P 

;INITIALIZE INVERSION STEP 

INZl : 

HRLI J, 0 

;GET PIVOT ELEMENT 


SKIPN T, A(P) 

JRST 1(17) 

;IF IT IS ZERO, EXIT AS ERROR 

DIV: 

MOVE A+1 (J) 

/DIVIDE PIVOT ROW THROUGH BY 


FDV T 

MOVEM A(J) 

AOBJN J, DIV 

/PIVOT ELEMENT 


MOVSI 1 .0B53 

FDV T 

MOVEM A(J) 

/LAST ELEMENT OF PIVOT ROW 

INZROW: 

MOVE J, P 

MOVE PT, A(K) 

/INITIALIZE TO PROCESS A ROW 


CAMN K, P 

/IF THE ROW IS THE PIVOT ROW, 


JRST ROWSKP 

/SKIP IT 


JRST ROW 

/GO TO PROGRAM IN FAST MEMORY 

ROWOUT: 

MOVN® ROW 

FMP PT 

MOVEM @ROW+2 

/HANDLE FINAL ELEMENT OF THE ROW 

CTX: 

SOJN LCS, INZROW 

ADD P, COLS 

/IS STEP FINISHED? 


SOJN LC, INZSTP 

/IS JOB FINISHED? 


JRST 2(1 7) 

/RETURN 

ROWSKP: 

ADD K, COLS 

/SKIP PIVOT ROW DURING 


JRST CTX 

/INVERSION STEP 


,THIS PROGRAM FOR PROCESSING THE ELEMENTS IN A ROW IS MOVED INTO FAST MEMORY 

ROWPRG: 

PHASE 1 

ROW: MOVN A(J) 

FMP PT 
FAD A+1 (K) 

MOVEM A(K) 

ADDI J, 1 
AOBJN K, ROW 
ROWL: JRST ROWOUT 

DE PHASE 
END 


18 



TWO-BIT TESTING AND DEPOSITING OF DATA 

PROBLEM: Consider four tables with 500 registers a table. The entries of the first table 

contain a 2-bit item, ITEM zeros, in bits 13 and 14. The entries of the second 
table contain ITEM ones In bits 1-6; the third table contains ITEM twos in bits 
1-9; and the fourth table contains ITEM threes in bits 1-10. 

For n = 1 , 500 

If ITEM 0 =0 Set: ITEM 1 =10„ 

n n 8 

ITEM 2 =100^ 
n o 

ITEMS -300o 
n 8 

If ITEM 0 = 1 Set: ITEM 1 = 20_ 

n n 8 

ITEM 2 = 200„ 
n 8 

ITEM 3 =400„ 
n 8 

If ITEM 0=2 Set: ITEM 1 = 30„ 

n n 8 

ITEM 2 =300„ 
n 8 

ITEM 3 = 500o 
n 8 

If ITEM 0=3 Set: ITEM 1 = 40„ 

n n 8 

ITEM 2 = 400,, 

n o 

ITEMS - 600„ 
n 8 

Program: For 500 cases, moving the program to fast memory results in a time saving of 

approximately 5000 microseconds. 

HRLZI 0, A 
BLT 0, 17 
JRST 2 

A: 0 

XWD+D-500,0 
LDB 0, 14 
ROT 0, 3 
ADDI 0, 10 
DPB 0, 15 
ROT 0, 3 
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TWO-BIT TESTING AND DEPOSITING OF DATA (continued) 


DPB 0, 1 6 
ADD I 0, 200 
DPB 0, 17 
AOBJN 1, 2 
JRST EXIT 

POINT 2 , TABO (1), 14 
POINT 6, TABl (1), 6 
POINT 9 , TAB2 (1), 9 
POINT 10, TABS (1), 10 
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ANY RADIX PRINT 


PROBLEM 
Assume : 


RADPT: 

RADIX: 

RADPTl : 


To Print out a signed number in an arbitrary radix. 

1) TOUT is the first location of an I/O Routine which exits by POPJ P,0. The argu- 
ment to tout is in accumulator B. 

2) The output radix is stored in the address part of RADIX. The output radix in 
this example is R. 

3) Place the number to be converted in accumulator A and call RADPT with PUSHJ P, 
RADPT. This routine suppresses leading zeros. 


JUMPGE B, RADIX 
MOVE I B, 

PUSHJ P, TOUT 
MOVNS A 
IDIVI A, R 
HRLM A+1 , (P) 

SKIPE A 

PUSHJ P, RADIX 
HLRZ B, (P) 

ADDI B, 260 
JRST TOUT 


;IS NUMBER NEGATIVE? 

;YES, GET ASCII MINUS SIGN 

;OUTPUT THE MINUS SIGN 

;TAKE ABSOLUTE VALUE OF ARGUMENT 

;QUOTIENT GOES TO A, REMAINDER TO A+1 

;SAVE REMAINDER IN LEFT SIDE OF LAST 

;ITEM ON PUSH DOWN LIST 

;IS QUOTIENT = 0? 

;NO, GO BACK FOR ANOTHER DIGIT 
;GET THE DIGIT OFF THE PUSHDOWN LIST 
;CONVERT THE DIGIT TO ASCII 
;GO TO THE I/O ROUTINE. TOUT EXECUTES 
;A POPJ P, BACK TO RADPTl OR (FINALLY) 
;TO THE PLACE WHERE RADPT WAS CALLED. 


21 





15106 


PRINTED IN U.S.A. 


20 - 8/64 



